* emulation/cua-base.el (cua-set-mark): Fix case of string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1b012694607bd7f4eab26aa6b912b32adef6eafb..448b07edec204c97645a6ca8624902ba9744f30d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-10-20  Christoph Scholtes  <cschol2112@googlemail.com>
+
+       * emulation/cua-base.el (cua-set-mark): Fix case of string.
+
 2011-10-20  Chong Yidong  <cyd@gnu.org>
 
        * emulation/cua-base.el (cua-mode):

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 918402dc581f5ee1fbba34c37b46a9704a3b6686..9a50352d50762dd60a536731766449d8eea60666 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1121,7 +1121,7 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark."
        (pop-to-mark-command)))
    ((and cua-toggle-set-mark mark-active)
     (cua--deactivate)
-    (message "Mark Cleared"))
+    (message "Mark cleared"))
    (t
     (push-mark-command nil nil)
     (setq cua--explicit-region-start t)